   1 .
   2 . SYMMETRICAL ART
   3 . BY ROB ROSENHOUSE
   4 . FOR SUPER SOFTWARE
   5 .
   6 . 6/10/1981
   7 .
   8 .
   9 :return ;NT=0;Z=rnd (15)
  10 clear ;line 0,-40,4
  20 for A=40to -40step -Z
  30 line 78,A,3;line 0,-40,4;line -78,A,3;line 0,40,4
  70 line 78,A,3;line 0,40,4;line -78,A,3;line 0,-40,4
  80 next A
  90 if C=2goto 200
  95 C=2
 100 for A=2to 8step Z
 110 box 0,0,A,84-A,3
 120 next A
 150 for A=1to 1000;next A
 160 BC=rnd (256);FC=BC+12+8mul rnd (32);run 
 200 Z=Zdiv 2;if Z<1Z=1
 205 for A=40to 0step -Z
 210 line 0,A,4;line A,0,3;line 0,-A,3;line -A,0,3;line 0,A,3
 220 next A
 230 C=1;goto 150

:return 
>
